|
|  Russite Corner Suite
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Corner Suite"

  FLAGS  ClickFly AnimateFly
  PACKS  1
  WIDTH  5 * CW
  HEIGHT 5 * CH + COH

  ZeroToWin 52 - CARDSIN$2

| Foundations

  FOR row = 0 TO 1
    FOR column = 0 TO 1
      FOUNDATION
        X 4 * CW * row 
        Y 4 * CH * column
        ID 2
      END
    END
  END

| Piles

  FOR row = 1 TO 3
    FOR column = 1 TO 3
      STACK
        X CW * column
        Y CH * row 
        FIRST 1, 13
        FirstFrom 4
        FLAGS PaintLast Join____ ClickFly
        ID 1
      END
    END
  END

| Stock 

  STACK
    X CW + CW / 2
    Y 4 * CH + COH
    DEAL 51
    DEALTO 4,1
    TAKEFROM 0
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

| Waste

  STACK
    X 2 * CW + CW / 2
    Y 4 * CH + COH
    DEAL 1,1
    MAX 0
    DRAGUPTO 1
    FLAGS PaintLast
    ID 4
  END

END
